ListView Option - Skip List

I saw  this dxl in a topic from 2009, and now  I have some problems... I want to create a object in another modulo based on the objects in the skSelected

But I got the following message:

What I'm doing wrong?

DB createViews
DBE lstCurrAttr, lstDspAttr
DBE btnUp, btnDown
string arr[] = {}
string attrName
int Num
 
Module m = current  
Skip adName = create()
Skip skSelected = create()


Object o
Num = 0
for o in m do
{
        attrName = identifier(o)
        put(adName, Num, attrName)
        
        Num++
}
 
void fillLists()
{
 
        empty lstCurrAttr
        empty lstDspAttr
 
        for attrName in adName do
        {
                // the listview will sort the values for us, just insert them in 
                // one or the other skip list, depending on if they are selected
                if (!find (skSelected, attrName)) 
                        insert(lstCurrAttr, noElems(lstCurrAttr), attrName, iconNone)
                                                
                else
                        insert (lstDspAttr, noElems(lstDspAttr), attrName, iconNone)
        }
                

}
 
void insertDspList (DBE btnDown)
{
        int i = get(lstCurrAttr)
        if (i < 0) return
        string insAttr = get(lstCurrAttr)
        // add item to selected list
        put (skSelected, insAttr, 0) 
        fillLists() 
}
 
 
void removeDspList (DBE btnUp)
{
        int i = get(lstDspAttr)
        if (i < 0) return
        string remAttr = get(lstDspAttr)
        // remove item from the selected list
        delete (skSelected, remAttr)
        fillLists()
}
 
 
void saveView(DB createViews)
{
Object verObj
Module verModule
verModule = edit("/Verification/Verification of" name(m), false)

for attrName in adName do
  {
   if (find (skSelected, attrName)) 
   verObj = create(verModule)
   
                
}

        
}

 
createViews = create("Requirements List", styleCentered)
lstCurrAttr = listView(createViews, 0, 300, 8, arr)
btnDown = button(createViews, downArrow, insertDspList)
btnUp = button(createViews, upArrow, removeDspList)
lstDspAttr = listView(createViews, 0, 300, 8, arr)
 
btnDown->"right"->"unattached"
 
btnUp->"left"->"flush"->btnDown
btnUp->"top"->"aligned"->btnDown
btnUp->"right"->"unattached"
 
apply(createViews , "Add to Verication", saveView)
 
realize(createViews)
 
fillLists()
insertColumn(lstCurrAttr, 1, "Module Requirements", 275, iconNone)
insertColumn(lstDspAttr, 1, "Added Requirements", 275, iconNone)
 
show (createViews)

Re: ListView Option - Skip List
Mike.Scharnow - Mon Feb 23 13:32:51 EST 2015

Well, the error message says null Module parameter ... and line 74 says "verObj = create (verModule)".

So, verModule is null.

Why is verModule null? verModule is set in line 69: verModule = edit ("/Verification...").

So, I would say, if your current module is called "myModule", then the reason for the error message is that there is no module called "/Verification/Verification ofmyModule" in your database. (note the missing space)

Re: ListView Option - Skip List
Bruwbruw - Tue Feb 24 07:01:34 EST 2015

You're right. Thank you!